Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nct01070.geo/00169.ls

Text File | 1997-03-19 | 3.4 KB | 163 lines

on startMovie
  Set_CDcounter(6)
  initLesson()
  CheckForTagWd()
end

on HideLastStep
  if Get_NEXT() = 5 then
    repeat with v = 31 to 33
      set the puppet of sprite v to 0
      UpdateCursors(v, 0)
    end repeat
  else
    if (Get_NEXT() > 5) and (Get_NEXT() < 10) then
      set the puppet of sprite 11 to 0
      UpdateCursors(11, 0)
    end if
  end if
  unLoadCast()
  RestoreHilites()
  repeat with i = 1 to 6
    set the visible of sprite (19 + i) to 1
  end repeat
end

on TheinitCursor
  initCursorCastNum()
  initCursorList(1)
  set CursorCastNum to getCursor(2)
  cursor([CursorCastNum, CursorCastNum + 1])
end

on checkScreenStatus
  CheckRollOver()
  CheckSnakeStatus()
  go(the frame)
end

on BlinkNext
  if (the timer > getTimer()) and not soundBusy(2) then
    startTimer()
    if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
      set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
    else
      set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
    end if
  end if
end

on PressBtn theBtn
  Set_PressedLast(theBtn)
  switchButt(Get_AnsSprite() + theBtn - 1, "down" & theBtn, "HandleBtn" && theBtn)
end

on handleCorse CastName
  global theCastName
  set theCastName to CastName
  set the visible of sprite 11 to 0
  GoNext()
end

on GoNext
  if not get_Disabled() then
    if Get_NEXT() = 8 then
      DisableBTNS()
    end if
    if Get_NEXT() = 4 then
      unLoadCast(33, 114)
    end if
    if Get_NEXT() = 5 then
      DisableBTNS()
      repeat with v = 31 to 33
        set the puppet of sprite v to 0
        UpdateCursors(v, 0)
      end repeat
      set the visible of sprite 11 to 0
    end if
    sound stop 2
    if Get_NEXT() = 9 then
      GoNextMovie()
    else
      go("t" & Get_NEXT())
    end if
    Set_NEXT(Get_NEXT() + 1)
  end if
end

on stopMovie
  sound stop 1
  unLoad()
  setEmptyCursor()
end

on GoNextMovie
  PlaySound("GOSOUND.SO1")
  SaveHilite()
  Add_CDcounter(1)
  set cdNum to Get_CDcounter()
  set movieName to item cdNum of Get_CurrentSnakeScreens()
  go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
end

on playTheTSound theTSnd
  PlaySound("NCT01070.s0" & theTSnd)
end

on checkDoubleClick spriteNum
  global firstClickedSprite
  set theClick to 0
  if not get_oneClick() then
    set firstClickedSprite to spriteNum
    set_oneClick(1)
    set_lastClickTimer(the ticks)
  else
    if get_oneClick() and ((the ticks - get_lastClickTimer()) < 20) and (firstClickedSprite = spriteNum) then
      set_lastClickTimer(0)
      set theClick to 1
    else
      if (the ticks - get_lastClickTimer()) > 19 then
        set firstClickedSprite to spriteNum
        set_oneClick(1)
        set_lastClickTimer(the ticks)
      end if
    end if
  end if
  return theClick
end

on set_oneClick bool
  global oneClick
  set oneClick to bool
end

on get_oneClick
  global oneClick
  return oneClick
end

on set_lastClickTimer int
  global lastClickTimer
  set lastClickTimer to int
end

on get_lastClickTimer
  global lastClickTimer
  return lastClickTimer
end

on blinkHiLight
  global Localtimer, redBoxSprite
  if (the timer > 35) and not soundBusy(2) and (Localtimer < 2) then
    startTimer()
    if the visible of sprite redBoxSprite then
      set the visible of sprite redBoxSprite to 0
    else
      puppetSound("highlight1")
      updateStage()
      set the visible of sprite redBoxSprite to 1
      set Localtimer to 1 + Localtimer
    end if
  end if
end